home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / window2a / clswinpo.cls < prev    next >
Text File  |  1999-09-06  |  2KB  |  95 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsWinPosition"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  17. Option Explicit
  18.  
  19. ' Name:     Windows Information Viewer
  20. ' Author:   Chong Long Choo
  21. ' Date:     06 September 1999
  22.  
  23. Private mvarIs_Iconic As Boolean
  24. Private mvarIs_Zoomed As Boolean
  25. Private mvarIs_Enabled As Boolean
  26. Private mvarIs_Visible As Boolean
  27. Private mvarLeft As Long
  28. Private mvarRight As Long
  29. Private mvarTop As Long
  30. Private mvarBottom As Long
  31.  
  32. Public Property Let Bottom(ByVal vData As Long)
  33.     mvarBottom = vData
  34. End Property
  35.  
  36. Public Property Get Bottom() As Long
  37.     Bottom = mvarBottom
  38. End Property
  39.  
  40. Public Property Let Top(ByVal vData As Long)
  41.     mvarTop = vData
  42. End Property
  43.  
  44. Public Property Get Top() As Long
  45.     Top = mvarTop
  46. End Property
  47.  
  48. Public Property Let Right(ByVal vData As Long)
  49.     mvarRight = vData
  50. End Property
  51.  
  52. Public Property Get Right() As Long
  53.     Right = mvarRight
  54. End Property
  55.  
  56. Public Property Let Left(ByVal vData As Long)
  57.     mvarLeft = vData
  58. End Property
  59.  
  60. Public Property Get Left() As Long
  61.     Left = mvarLeft
  62. End Property
  63.  
  64. Public Property Let Is_Visible(ByVal vData As Boolean)
  65.     mvarIs_Visible = vData
  66. End Property
  67.  
  68. Public Property Get Is_Visible() As Boolean
  69.     Is_Visible = mvarIs_Visible
  70. End Property
  71.  
  72. Public Property Let Is_Enabled(ByVal vData As Boolean)
  73.     mvarIs_Enabled = vData
  74. End Property
  75.  
  76. Public Property Get Is_Enabled() As Boolean
  77.     Is_Enabled = mvarIs_Enabled
  78. End Property
  79.  
  80. Public Property Let Is_Zoomed(ByVal vData As Boolean)
  81.     mvarIs_Zoomed = vData
  82. End Property
  83.  
  84. Public Property Get Is_Zoomed() As Boolean
  85.     Is_Zoomed = mvarIs_Zoomed
  86. End Property
  87.  
  88. Public Property Let Is_Iconic(ByVal vData As Boolean)
  89.     mvarIs_Iconic = vData
  90. End Property
  91.  
  92. Public Property Get Is_Iconic() As Boolean
  93.     Is_Iconic = mvarIs_Iconic
  94. End Property
  95.